home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Design
/
WB Collection.iso
/
datatypes
/
mandt
/
install
< prev
next >
Wrap
Text File
|
1996-04-07
|
3KB
|
119 lines
;
; $PROJECT: man.datatype
;
; $VER: Install 39.2 (18.11.94)
;
; by
;
; Stefan Ruppert , Windthorststraße 5 , 65439 Flörsheim , GERMANY
;
; (C) Copyright 1994
; All Rights Reserved !
;
(set #datatype (cat "man.datatype"))
(set #datatype-desc (cat "Man"))
(set mode
(askchoice
(prompt @app-name)
(help @askchoice-help)
(choices "Install" "Remove")
)
)
(if mode
(set pmode "Remove")
(set pmode "Install")
)
; get classes dir
(set classdir
(askdir
(prompt "Where do the Classes belong")
(help @askdir-help)
(default "SYS:Classes")
)
)
; now do install or remove
(if mode
; Remove
(
; Show what we are doing
(working "Removing " @app-name)
; Remove the non-standard pieces
(delete (tackon classdir "datatypes" #datatype))
(delete (cat "devs:datatypes/" #datatype-desc) (infos))
; Don't want to use the confusing "Installation Complete" message
; when what we really did was remove things...
(message "The \"" @app-name "\" components "
"that you specified have been successfully removed")
(exit (quiet))
)
; Install
(
(working "Installing " @app-name)
; Install the classes
(copylib
(prompt (cat "Copying " @app-name))
(help @copylib-help)
(source (tackon "classes/datatypes" #datatype))
(dest (tackon classdir "DataTypes"))
(confirm)
)
; Install the descriptors
(copyfiles
(prompt "Copying the Descriptors")
(help @copyfiles-help)
(source "devs/datatypes")
(dest "DEVS:DataTypes")
(pattern "#?")
(infos)
(confirm)
)
; install doc file
(copyfiles
(prompt "Copying autodoc file")
(help @copyfiles-help)
(source "doc")
(dest "AutoDocs:")
(pattern "#?")
(confirm)
)
; install AmigaGuide file
(copyfiles
(prompt "Copying AmigaGuide file")
(help @copyfiles-help)
(source "help")
(dest "AmigaGuide:")
(pattern "#?")
(confirm)
)
; install scripts
(copyfiles
(prompt "Copying Script file")
(help @copyfiles-help)
(source "s")
(dest "S:")
(pattern "#?")
(confirm)
)
; Tell the system about the new descriptors
(run "C:AddDataTypes Refresh")
)
)
(set @default-dest classdir)